; Music of Sharkey's Moll (1991) (Zeppelin Games Ltd.) (Sound Images)
; Ripped by Megachur the 10/09/2008

	write "SHARKEYM.BIN"

music_date_rip	equ &0a98
music_adr	equ &b000
first_theme	equ 1	; 1 -> 3
last_theme	equ 3

	read "music_header_v1_0.asm"

.lb005 equ $ + 5
.lb004 equ $ + 4
.lb003 equ $ + 3
.lb002 equ $ + 2
.lb001 equ $ + 1
.lb000
	db #01,#00,#00,#00,#00,#10
;
.play_music
;
	push af
	push bc
	push de
	push hl
	call lb04d
	call lb0c0
	ld a,(lb001)
	or a
	jr nz,lb025
	ld hl,lb632
	ld a,(hl)
	inc h
	or (hl)
	inc h
	or (hl)
	jr z,lb048
	ld a,#01
	ld (lb11f),a
.lb025
	ld hl,lb11f
	dec (hl)
	ld h,#b6
	call lb0fd
	inc h
	call lb0fd
	inc h
	call lb0fd
	call lb2ab
	call lb214
	ld hl,lb11f
	ld a,(hl)
	or a
	jr nz,lb045
.lb044 equ $ + 1
	ld (hl),#01
.lb045
	call lb2bb
.lb048
	pop hl
	pop de
	pop bc
	pop af
	ret
.lb04d
	ld a,(lb001)
	or a
	jr nz,lb059
	ld a,(lb000)
;
.init_music
;
	ld (lb05a),a
.lb05a equ $ + 1
.lb059
	ld a,#00
	or a
	ret z
	push af
	call lb302
	pop af
	cp #04
	ret nc
	ld (lb001),a
	dec a
	add a
	add a
	add a
	add #31
	ld e,a
	adc #b9
	sub e
	ld d,a
	ld a,(de)
	inc de
	ld (lb044),a
	ld h,#b6
	call lb091
	call lb091
	call lb091
	xor a
	ld (lb003),a
	inc a
	ld (lb11f),a
	ld a,#10
	ld (lb005),a
	ret
.lb091
	ld l,#05
	ld (hl),#01
	dec l
	xor a
	ld (hl),a
	ld l,#07
	ld (hl),a
	ld l,#09
	ld (hl),a
	ld l,#15
	ld (hl),a
	ld l,#31
	ld (hl),a
	ld a,(de)
	inc de
	ld c,a
	ld a,(de)
	inc de
	ld b,a
	or c
	ret z
	ld l,#02
	ld a,(bc)
	ld (hl),a
	inc bc
	inc l
	ld a,(bc)
	ld (hl),a
	inc bc
	ld l,#00
	ld (hl),c
	inc l
	ld (hl),b
	ld l,#32
	ld (hl),#01
	inc h
	ret
.lb0c0
	ld a,(lb002)
	or a
	ret z
	cp #0b
	ret nc
	ld c,a
	ld hl,lb632
	ld a,(hl)
	or a
	jr z,lb0d9
	inc h
	ld a,(hl)
	or a
	jr z,lb0d9
	inc h
	ld a,(hl)
	or a
	ret nz
.lb0d9
	inc (hl)
	ld (lb002),a
	ld l,#04
	ld (hl),a
	ld l,#15
	ld (hl),a
	ld a,c
	add a
	add #b0
	ld c,a
	adc #be
	sub c
	ld b,a
	ld a,(bc)
	ld l,#02
	ld (hl),a
	ld e,a
	inc l
	inc bc
	ld a,(bc)
	ld (hl),a
	ld d,a
	ld l,#16
	ld (hl),#01
	jp lb140
.lb0fd
	ld l,#32
	ld a,(hl)
	or a
	ret z
	ld l,#04
	bit 7,(hl)
	jr z,lb119
.lb109 equ $ + 1
	ld a,#00
	dec a
	ld (lb109),a
	jr nz,lb119
	ld l,#20
	ld a,(lb693)
	or (hl)
	ld (lb693),a
.lb119
	ld l,#02
	ld e,(hl)
	inc l
	ld d,(hl)
.lb11f equ $ + 1
	ld a,#01
	or a
	jr nz,lb12e
	ld l,#05
	dec (hl)
	jr z,lb140
	call lb69b
	call lb914
.lb12e
	call lb86e
	call lb83a
	call lb833
	call lb22b
	call lb6a6
	jp lb7e2
.lb140
	ld a,(de)
	inc de
	or a
	jp m,lb184
.lb146
	ld l,#0c
	ld (hl),a
	ld l,#02
	ld (hl),e
	inc l
	ld (hl),d
	call lb6c1
	ld l,#14
	ld a,(hl)
	ld l,#0b
	ld (hl),a
	ld l,#0d
	ld a,(hl)
	ld l,#05
	ld (hl),a
	ld l,#18
	ld (hl),#00
	ld l,#2e
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#2c
	ld a,(hl)
	dec l
	ld (hl),a
	call lb33d
	ld l,#0e
	call lb174
	inc l
.lb174
	ld a,(hl)
	ld c,a
	and #0f
	inc l
	ld (hl),a
	ld a,c
	rra
	rra
	rra
	rra
	and #0f
	inc l
	ld (hl),a
	ret
.lb184
	cp #e0
	jr nc,lb1ac
	cp #d0
	jr nc,lb1bc
	cp #c0
	jr nc,lb1b4
	cp #b0
	jr nc,lb1e3
	ld c,h
	add a
	add #33
	ld l,a
	adc #b7
	sub l
	ld h,a
	ld a,c
	ld c,(hl)
	inc hl
	ld b,(hl)
	ld h,a
	ld (lb1a7),bc
.lb1a7 equ $ + 1
	call #0000
	jp lb140
.lb1ac
	sub #df
	ld l,#0d
	ld (hl),a
	jp lb140
.lb1b4
	sub #c0
	ld l,#14
	ld (hl),a
	jp lb140
.lb1bc
	sub #d0
	ld l,#14
	ld (hl),a
	ex de,hl
	ld e,#0e
	ldi
	ld e,#11
	ldi
	ex de,hl
	ld a,(de)
	rra
	rra
	rra
	rra
	and #0f
	ld l,#19
	ld (hl),a
	inc l
	ld (hl),a
	ld a,(de)
	and #0f
	ld l,#1b
	ld (hl),a
	inc l
	ld (hl),a
	inc de
	jp lb140
.lb1e3
	sub #b0
	add a
	add #3c
	ld c,a
	adc #b4
	sub c
	ld b,a
	ld a,(bc)
	ld l,#21
	ld (hl),a
	inc l
	inc bc
	ld a,(bc)
	ld (hl),a
	inc l
	ld (hl),#00
	ld l,#04
	set 0,(hl)
	jp lb140
.lb1ff
	pop af
	call lb692
	ld a,(lb693)
	or c
	ld (lb693),a
	ld l,#32
	ld (hl),#00
	ret
.lb20f
	ld l,#04
	res 0,(hl)
	ret
.lb214
	ld hl,lb228
	dec (hl)
	ret p
	xor a
	ld (hl),a
	inc hl
	cp (hl)
	ret z
	dec (hl)
	inc hl
	ld a,(lb331)
	add (hl)
	ld (lb331),a
	ret
.lb228
	nop
.lb229
	nop
.lb22a
	nop
.lb22c equ $ + 1
.lb22b
	ld a,#55
	rrca
	ld (lb22c),a
	ret c
	dec de
	ld a,(de)
	inc de
	cp #8e
	jr z,lb243
	ld l,#0d
	ld a,(hl)
	ld l,#2a
	sub (hl)
	ld l,#05
	cp (hl)
	ret c
.lb243
	ld l,#04
	bit 3,(hl)
	ret z
	ld l,#30
	ld a,(hl)
	or a
	jr z,lb259
	dec l
	dec (hl)
	jr nz,lb259
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#2b
	inc (hl)
.lb259
	ld l,#04
	bit 6,(hl)
	jr z,lb279
	ld l,#2d
	dec (hl)
	jr nz,lb26d
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#04
	res 6,(hl)
	ret
.lb26d
	ld l,#2b
	ld a,(hl)
	ld l,#07
	add (hl)
	ld (hl),a
	ret nc
	ld l,#09
	inc (hl)
	ret
.lb279
	ld l,#2d
	dec (hl)
	jr nz,lb287
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#04
	set 6,(hl)
	ret
.lb287
	ld l,#07
	ld a,(hl)
	ld l,#2b
	sub (hl)
	ld l,#07
	ld (hl),a
	ret nc
	ld l,#09
	dec (hl)
	ret
.lb295
	ld l,#04
	res 5,(hl)
	ret
.lb29a
	ld a,#35
	ld (lb003),a
	ld (lb004),a
	ret
.lb2a3
	ld a,(de)
	ld l,#31
	ld (hl),a
	inc de
	ret
.lb2a9
	inc (hl)
	ret
.lb2ab
	ld hl,lb003
	ld a,(hl)
	or a
	ret z
	inc hl
	dec (hl)
	ret nz
	ld (hl),a
	inc hl
	dec (hl)
	ret p
	inc (hl)
	jr lb302
.lb2bb
	call lb323
	ld h,#b6
	call lb2c9
	inc h
	call lb2c9
	ld h,#b8
.lb2c9
	ld l,#06
	call lb2e5
	call lb2e5
	ld a,(lb005)
	add a
	ret z
	ld b,(hl)
	inc l
	add a
	add a
	add a
	add (hl)
	push hl
	ld l,a
	ld h,#b5
	ld a,b
	ld c,(hl)
	pop hl
	jr lb2e9
.lb2e5
	ld a,(hl)
	inc l
	ld c,(hl)
	inc l
.lb2e9
	ld b,d
	out (c),a
.lb2ed equ $ + 1
	ld a,#c0
	ld b,e
	out (c),a
	and #3f
	out (c),a
	ld b,d
	out (c),c
	ld b,e
	ld c,a
	or #80
	out (c),a
	out (c),c
	ret
.lb301
	pop af
.lb302
	xor a
	ld (lb001),a
	ld (lb05a),a
	ld (lb000),a
	ld (lb632),a
	ld (lb732),a
	ld (lb832),a
	ld (lb631),a
	ld (lb731),a
	ld (lb831),a
	ld a,#3f
	ld (lb693),a
.lb323
	ld de,#f4f6
	ld b,e
	in a,(c)
	or #c0
	ld (lb2ed),a
	ld a,#06
.lb331 equ $ + 1
	ld c,#01
	call lb2e9
	ld a,(lb693)
	ld c,a
	ld a,#07
	jr lb2e9
.lb33d
	ld l,#04
	bit 7,(hl)
	ret z
.lb343 equ $ + 1
	ld a,#00
	ld (lb331),a
	xor a
	ld (lb228),a
	ld (lb229),a
	ld (lb22a),a
	ld a,#01
	ld (lb109),a
	ld l,#20
	ld a,(hl)
	cpl
	ld c,a
	ld a,(lb693)
	and c
	ld (lb693),a
	ret
.lb363
	ld l,#15
	ld (hl),#01
	ret
.lb368
	ld l,#15
	ld (hl),#ff
	ret
.lb36d
	ld l,#04
	set 7,(hl)
	ret
.lb372
	ld a,(de)
	inc de
	ld (lb343),a
	ret
.lb378
	ex de,hl
	ld e,#27
	ldi
	ldi
	ld e,#24
	ldi
	ldi
	ld e,#29
	ldi
	ex de,hl
	ld l,#04
	set 2,(hl)
	ret
.lb38f
	ld l,#04
	res 2,(hl)
	ret
	dw #077c,#0710,#06ab,#064b
	dw #05f1,#059b,#054b,#04ff
	dw #04b7,#0473,#0433,#03f7
	dw #03be,#0388,#0355,#0326
	dw #02f8,#02ce,#02a5,#027f
	dw #025c,#023a,#021a,#01fb
	dw #01df,#01c4,#01ab,#0193
	dw #017c,#0167,#0153,#0140
	dw #012e,#011d,#010d,#00fe
	dw #00f0,#00e2,#00d5,#00c9
	dw #00be,#00b3,#00a9,#00a0
	dw #0097,#008e,#0086,#007f
	dw #0078,#0071,#006b,#0065
	dw #005f,#005a,#0055,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0039,#0035,#0032
	dw #0030,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
	dw lb44e,lb458,lb45e,lb462
	dw lb466,lb46c,lb470,lb474
	dw lb47a
.lb44e
	db #00,#0c,#01,#0d,#02,#0e,#01,#0d
.lb458 equ $ + 2
	db #00,#8c,#18,#20,#0c,#14,#00,#88
.lb462 equ $ + 4
.lb45e
	db #0c,#0c,#00,#80,#00,#00,#02,#82
.lb46c equ $ + 6
.lb466
	db #18,#1f,#0c,#13,#00,#87,#0c,#13
.lb474 equ $ + 6
.lb470 equ $ + 2
	db #00,#87,#00,#00,#04,#84,#00,#00
.lb47a equ $ + 4
	db #03,#03,#07,#87,#79,#6e,#69,#54
	db #20,#39,#38,#39,#31,#20,#28,#63
	db #29,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#01,#02,#03,#04,#05
	db #06,#07,#08,#09,#0a,#0b,#0c,#0d
	db #0e,#0f,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#01,#01,#01,#01,#01
	db #01,#01,#00,#00,#00,#00,#00,#00
	db #01,#01,#01,#01,#01,#02,#02,#02
	db #02,#02,#00,#00,#00,#00,#01,#01
	db #01,#01,#02,#02,#02,#02,#03,#03
	db #03,#03,#00,#00,#00,#00,#01,#01
	db #01,#02,#02,#02,#03,#03,#03,#04
	db #04,#04,#00,#00,#00,#01,#01,#01
	db #02,#02,#03,#03,#03,#04,#04,#04
	db #05,#05,#00,#00,#00,#01,#01,#02
	db #02,#03,#03,#03,#04,#04,#05,#05
	db #06,#06,#00,#00,#01,#01,#02,#02
	db #03,#03,#04,#04,#05,#05,#06,#06
	db #07,#07,#00,#00,#01,#01,#02,#02
	db #03,#03,#04,#05,#05,#06,#06,#07
	db #07,#08,#00,#00,#01,#01,#02,#03
	db #03,#04,#05,#05,#06,#06,#07,#08
	db #08,#09,#00,#00,#01,#02,#02,#03
	db #04,#04,#05,#06,#06,#07,#08,#08
	db #09,#0a,#00,#00,#01,#02,#03,#03
	db #04,#05,#06,#06,#07,#08,#09,#09
	db #0a,#0b,#00,#00,#01,#02,#03,#04
	db #04,#05,#06,#07,#08,#08,#09,#0a
	db #0b,#0c,#00,#00,#01,#02,#03,#04
	db #05,#06,#07,#07,#08,#09,#0a,#0b
	db #0c,#0d,#00,#00,#01,#02,#03,#04
	db #05,#06,#07,#08,#09,#0a,#0b,#0c
	db #0d,#0e,#00,#00,#00,#00,#00,#00
	db #00,#00,#01,#00,#08,#0f,#00,#04
	db #00,#00,#00,#00,#00,#00,#0f,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#01,#08,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.lb632 equ $ + 4
.lb631 equ $ + 3
	db #00,#00,#00,#00,#00
.lb633
	call lb692
	ld l,#1f
.lb638
	ld a,(hl)
.lb639
	cpl
	and c
	ld (lb693),a
	ld l,#04
	res 4,(hl)
	res 0,(hl)
	ret
.lb645
	call lb65c
	call lb692
	ld l,#20
	jr lb638
.lb64f
	call lb65c
.lb652
	call lb692
	ld l,#1f
	ld a,(hl)
	inc l
	or (hl)
	jr lb639
.lb65c
	ld a,(de)
	inc de
	ld (lb331),a
	ld a,(de)
	inc de
	ld (lb22a),a
	ld a,(de)
	inc de
	ld (lb228),a
	ld a,(de)
	inc de
	ld (lb229),a
	ret
.lb671
	call lb692
	ld l,#20
	ld a,(hl)
	cpl
	and c
	ld (lb693),a
	ld l,#04
	set 4,(hl)
	ret
.lb681
	ld l,#0b
	ld (hl),#00
.lb685
	pop af
	ld l,#0d
	ld a,(hl)
	ld l,#05
	ld (hl),a
	ld l,#02
	ld (hl),e
	inc l
	ld (hl),d
	ret
.lb693 equ $ + 1
.lb692
	ld a,#3f
	ld l,#1f
	or (hl)
	inc l
	or (hl)
	ld c,a
	ret
.lb69b
	ld l,#15
	ld a,(hl)
	or a
	ret z
	ld l,#0c
	add (hl)
	ld (hl),a
	jr lb6c1
.lb6a6
	ld l,#04
	bit 0,(hl)
	ret z
	ld l,#21
	ld a,(hl)
	inc l
	ld b,(hl)
	inc l
	add (hl)
	ld c,a
	jr nc,lb6b6
	inc b
.lb6b6
	inc (hl)
	ld a,(bc)
	or a
	jp p,lb6be
	ld (hl),#00
.lb6be
	ld l,#0c
	add (hl)
.lb6c1
	ld l,#31
	add (hl)
	add a
	add #94
	ld c,a
	adc #b3
	sub c
	ld b,a
	ld a,(bc)
	inc bc
	ld l,#07
	ld (hl),a
	ld a,(bc)
	ld l,#09
	ld (hl),a
	ld l,#04
	bit 2,(hl)
	jr z,lb6f5
	push de
	ld l,#27
	ld e,(hl)
	inc l
	ld d,(hl)
	ld l,#07
	ld c,(hl)
	ld l,#09
	ld b,(hl)
	ex de,hl
	add hl,bc
	ex de,hl
	ld (hl),d
	ld l,#07
	ld (hl),e
	pop de
	ld l,#29
	ld a,(hl)
	ld l,#26
	ld (hl),a
.lb6f5
	ld l,#04
	bit 5,(hl)
	ret z
	res 1,(hl)
	ret
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#02,#00,#03,#00,#09,#0f,#00
	db #04,#00,#00,#00,#00,#00,#00,#0f
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#02,#10,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.lb732 equ $ + 5
.lb731 equ $ + 4
	db #00,#00,#00,#00,#00,#00
	dw lb7bc,lb363,lb368,lb786
	dw lb20f,lb7a5,lb378,lb38f
	dw lb76b,lb7f5,lb633,lb645
	dw lb64f,lb671,lb685,lb681
	dw lb2a3,lb301,lb8c1,lb8ef
	dw lb7b4,lb1ff,lb295,lb29a
	dw lb36d,lb7fa,lb79f,lb372
.lb76b
	ex de,hl
	ld e,#2a
	ldi
	ld a,(hl)
	ldi
	ld (de),a
	inc e
	ld a,(hl)
	ldi
	ld (de),a
	inc e
	ld a,(hl)
	ldi
	ld (de),a
	ex de,hl
	ld l,#04
	set 3,(hl)
	set 6,(hl)
	ret
.lb786
	ld a,(de)
	inc de
	ld l,#16
	ld (hl),a
	ld a,(de)
	rra
	rra
	rra
	rra
	and #0f
	ld l,#1d
	ld (hl),a
	inc l
	ld (hl),a
	ld a,(de)
	and #0f
	ld l,#17
	ld (hl),a
	inc de
	ret
.lb79f
	ld l,#04
	set 5,(hl)
	jr lb7a9
.lb7a5
	ld l,#04
	set 1,(hl)
.lb7a9
	ex de,hl
	ld e,#24
	ldi
	ldi
	ldi
	ex de,hl
	ret
.lb7b4
	ld l,#00
	ex de,hl
	ldi
	ldi
	ex de,hl
.lb7bc
	ld a,(lb000)
	ld (lb05a),a
	ld l,#00
	ld c,(hl)
	inc l
	ld b,(hl)
	ld a,(bc)
	ld e,a
	inc bc
	ld a,(bc)
	inc bc
	ld d,a
	or e
	jr z,lb7d9
	ld (hl),b
	dec l
	ld (hl),c
	inc l
	inc l
	ld (hl),e
	inc l
	ld (hl),d
	ret
.lb7d9
	ld d,b
	ld e,c
	pop bc
	ld a,(lbea7)
	jp lb184
.lb7e2
	ld l,#04
	bit 4,(hl)
	ret z
	ld l,#1f
	ld a,(hl)
	inc l
	or (hl)
	ld c,a
	ld a,(lb693)
	xor c
	ld (lb693),a
	ret
.lb7f5
	ld l,#04
	res 3,(hl)
	ret
.lb7fa
	ld l,#04
	res 7,(hl)
	ret
	db #00,#00,#00,#00,#00,#00,#00,#04
	db #00,#05,#00,#0a,#0f,#00,#04,#00
	db #00,#00,#00,#00,#00,#0f,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #04,#20,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.lb832 equ $ + 3
.lb831 equ $ + 2
	db #00,#00,#00,#00
.lb833
	ld l,#04
	bit 2,(hl)
	jr nz,lb83f
	ret
.lb83a
	ld l,#04
	bit 1,(hl)
	ret z
.lb83f
	ld l,#26
	dec (hl)
	jp m,lb2a9
	ld l,#25
	bit 7,(hl)
	jr nz,lb85a
	ld l,#24
	ld a,(hl)
	ld l,#07
	add (hl)
	ld (hl),a
	ld l,#25
	ld a,(hl)
	ld l,#09
	adc (hl)
	ld (hl),a
	ret
.lb85a
	ld l,#07
	ld a,(hl)
	ld l,#24
	sub (hl)
	ld l,#07
	ld (hl),a
	ld l,#25
	ld c,(hl)
	res 7,c
	ld l,#09
	ld a,(hl)
	sbc c
	ld (hl),a
	ret
.lb86e
	ld l,#0f
	ld a,(hl)
	or a
	jr z,lb889
	ld l,#19
	dec (hl)
	ret nz
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#0f
	dec (hl)
	inc l
	ld a,(hl)
	ld l,#0b
	add (hl)
	cp #0f
	ret nc
	ld (hl),a
	ret
.lb889
	ld l,#12
	ld a,(hl)
	or a
	jr z,lb8a7
	ld l,#1b
	dec (hl)
	ret nz
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#12
	dec (hl)
	ld l,#0b
	ld a,(hl)
	ld l,#13
	sub (hl)
	jr nc,lb8a3
	xor a
.lb8a3
	ld l,#0b
	ld (hl),a
	ret
.lb8a7
	ld l,#18
	ld a,(hl)
	or a
	ret z
	ld l,#1d
	dec (hl)
	ret nz
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#0b
	ld a,(hl)
	ld l,#17
	sub (hl)
	jr nc,lb8bd
	xor a
.lb8bd
	ld l,#0b
	ld (hl),a
	ret
.lb8c1
	pop af
	call lb652
	ld a,#1f
	ld (lb331),a
	xor a
	ld (lb228),a
	ld a,#e1
	ld (lb22a),a
	ld a,#03
	ld (lb229),a
	ld l,#21
	ld (hl),#4e
	inc l
	ld (hl),#b4
	ld l,#04
	set 0,(hl)
	set 1,(hl)
	res 7,(hl)
	ld a,#18
	ld l,#31
	sub (hl)
	jp lb146
.lb8ef
	pop af
	call lb633
	ld l,#24
	ld (hl),#70
	inc l
	ld (hl),#00
	inc l
	ld (hl),#0c
	ld l,#04
	set 1,(hl)
	ld l,#21
	ld (hl),#4e
	inc l
	ld (hl),#b4
	ld l,#04
	set 0,(hl)
	ld a,#09
	ld l,#31
	sub (hl)
	jp lb146
.lb914
	ld l,#16
	ld a,(hl)
	ld l,#05
	cp (hl)
	ret nz
	ld a,(de)
	cp #8e
	ret z
	ld l,#18
	ld (hl),#01
	ld l,#15
	ld (hl),#00
	ld l,#04
	res 1,(hl)
	bit 5,(hl)
	ret z
	set 1,(hl)
	ret
	db #05
	dw lb948,lb966,lb97c
	db #05,#05
	dw lbd86,lbd88,lbd8a
	db #05,#05
.lb948 equ $ + 6
	dw lbe0b,lbe0d,lbe0f,lb9a2
.lb94a
	dw lb9a2,lb9ef,lb9a2,lb9ef
	dw lba12,lba12,lb9a2,lba48
	dw lba12,lba12,lba12,lba12
.lb968 equ $ + 6
.lb966 equ $ + 4
	dw #0000,lb94a,lba76,lba8c
	dw lbb32,lbace,lbb32,lbb5b
	dw lbace,lbb88,lbbbd,#0000
.lb980 equ $ + 6
.lb97c equ $ + 2
	dw lb968,lbbf2,lbbf2,lbc44
	dw lbc44,lbc94,lbc44,lbc44
	dw lbc94,lbce8,lbce8,lbc44
	dw lbc44,lbd37,lbce8,lbce8
	dw lbce8,lbce8,#0000,lb980
.lb9a2
	db #df,#02,#18,#12,#8a,#83,#01,#11
	db #9b,#00,#98,#e1,#0c,#0c,#0f,#0c
	db #0c,#0c,#0c,#0c,#0c,#0c,#0f,#0c
	db #0c,#0c,#0f,#0c,#0c,#0c,#0f,#0c
	db #0c,#0f,#0c,#0c,#0c,#0c,#0f,#0c
	db #0c,#0c,#0f,#0c,#0c,#0c,#0f,#0c
	db #0c,#0c,#0c,#0c,#0c,#0c,#0f,#0c
	db #0c,#0c,#0f,#0c,#0c,#0c,#0f,#0c
	db #0c,#0f,#0c,#0c,#0c,#0c,#0f,#0c
.lb9ef equ $ + 5
	db #0c,#0c,#0f,#0c,#80,#cf,#e1,#07
	db #8e,#07,#07,#07,#07,#07,#13,#07
	db #8e,#07,#13,#07,#07,#07,#07,#07
	db #8e,#07,#07,#07,#07,#07,#14,#08
	db #08,#14,#08,#08,#14,#08,#08,#80
.lba12
	db #df,#00,#1f,#13,#8a,#83,#01,#11
	db #98,#e1,#0c,#0c,#0c,#0c,#0c,#0c
	db #0c,#0c,#0c,#0c,#0c,#0c,#0c,#0c
.lba2d equ $ + 3
	db #92,#8a,#98,#0f,#0c,#0c,#0c,#0c
.lba38 equ $ + 6
	db #0c,#0c,#0c,#0c,#0c,#0c,#0c,#0c
	db #0c,#0c,#df,#00,#1f,#11,#e0,#92
.lba48 equ $ + 6
	db #92,#8a,#98,#e1,#0f,#80,#cf,#e1
	db #07,#8e,#07,#07,#07,#07,#07,#13
	db #07,#8e,#07,#13,#07,#07,#92,#8a
	db #98,#0f,#08,#08,#14,#08,#08,#14
	db #08,#08,#0a,#0a,#0a,#16,#0a,#0a
.lba6f equ $ + 5
	db #df,#00,#1f,#11,#e0,#92,#92,#8a
.lba76 equ $ + 4
	db #98,#e1,#0a,#80,#d0,#1e,#12,#e5
	db #8a,#83,#01,#31,#88,#10,#01,#02
	db #00,#ff,#8f,#8f,#ef,#8f,#f7,#33
	db #8e,#80
.lba8c
	db #db
	inc d
	ld (de),a
	inc hl
	adc d
	add e
	ld bc,#8811
	inc b
	ld bc,#0002
	pop hl
	ld l,#30
	jr nc,lba2d
	rst #30
	add l
	dec b
	add b
	inc bc
	ld l,#85
	rlca
.lbaa6
	add b
	ld (bc),a
	pop hl
	dec (hl)
	scf
	jr nc,lbaa6
	add l
	dec b
	add b
	inc b
	jr nc,lba38
	rlca
	add b
	ld (bc),a
	pop hl
	dec (hl)
	scf
	inc sp
	dec (hl)
	adc (hl)
	push af
	add l
	dec bc
	add b
	ld (bc),a
	dec (hl)
	ret po
	jr c,lbafc
	dec (hl)
	inc sp
	dec (hl)
	inc sp
	jr nc,lbb05
	rst #30
	scf
	add b
.lbace
	in a,(#14)
	ld (de),a
	inc hl
	adc d
	add e
	ld bc,#8811
	inc b
	ld bc,#0002
	pop hl
	ld l,#30
	jr nc,lba6f
	rst #20
	add l
	dec b
	add b
	db #03,#2e,#d8,#12,#15,#13,#8a,#e1
	db #8f,#33,#32,#3c,#33,#32,#3c,#8e
	db #db,#14,#12,#23,#8a,#e0,#38,#37
.lbafc
	db #35,#33,#30,#35,#37,#3a,#85,#03
.lbb05 equ $ + 1
	db #80,#02,#f7,#3a,#e5,#3a,#e9,#85
	db #03,#80,#02,#3a,#e5,#3a,#e7,#85
	db #03,#80,#02,#3a,#e1,#3a,#88,#04
	db #01,#02,#00,#90,#f4,#e5,#3f,#e9
	db #3c,#e3,#3f,#e1,#3c,#e3,#3f,#e1
.lbb32 equ $ + 6
	db #3c,#e3,#41,#90,#00,#80,#db,#14
	db #12,#33,#88,#02,#01,#02,#00,#f1
	db #32,#e1,#85,#0a,#80,#02,#30,#32
	db #30,#85,#0a,#80,#02,#30,#85,#0a
	db #80,#02,#30,#8e,#ef,#32,#e1,#33
.lbb5b equ $ + 7
	db #ef,#85,#07,#80,#02,#35,#80,#db
	db #14,#12,#33,#8a,#88,#08,#01,#02
	db #00,#83,#10,#61,#ff,#3c,#8f,#d9
	db #13,#1f,#13,#e1,#37,#3a,#3c,#e9
	db #30,#ef,#8f,#e1,#37,#3a,#3c,#30
	db #d0,#1e,#12,#75,#88,#10,#01,#02
.lbb88 equ $ + 4
	db #00,#f7,#37,#80,#da,#14,#12,#23
	db #8a,#83,#01,#31,#85,#0a,#80,#02
	db #e1,#30,#32,#30,#85,#0a,#80,#02
	db #30,#32,#30,#f3,#85,#05,#80,#04
	db #30,#e1,#38,#37,#35,#e9,#38,#e5
	db #85,#0e,#80,#02,#37,#85,#0e,#80
	db #02,#37,#e3,#85,#0e,#80,#02,#37
.lbbbd equ $ + 1
	db #80,#db,#14,#12,#33,#8a,#88,#08
	db #01,#02,#00,#fb,#3c,#e3,#3f,#f7
	db #35,#e7,#37,#ef,#33,#35,#ff,#43
	db #e5,#41,#3f,#3e,#e9,#3c,#e3,#3a
	db #e5,#35,#37,#3a,#3c,#e7,#35,#e5
	db #41,#3f,#3e,#e9,#3c,#e3,#3a,#ef
.lbbf2 equ $ + 6
	db #83,#08,#71,#35,#33,#80,#dd,#00
	db #1f,#13,#8a,#83,#01,#11,#e1,#b1
	db #18,#18,#e3,#cf,#92,#8a,#cd,#e1
	db #b1,#18,#18,#cf,#92,#92,#8a,#cd
	db #e3,#b1,#18,#cf,#92,#8a,#cd,#e1
	db #b1,#18,#b4,#18,#cf,#92,#92,#8a
	db #cd,#b1,#18,#18,#e3,#cf,#92,#8a
	db #cd,#e3,#b1,#18,#e1,#cf,#92,#92
	db #8a,#cd,#b1,#18,#18,#cf,#92,#8a
	db #cd,#b1,#18,#18,#b4,#18,#df,#00
	db #1f,#11,#e0,#92,#92,#92,#92,#80
.lbc44
	db #dd,#00,#1f,#13,#8a,#83,#01,#11
	db #e1,#b4,#18,#18,#e3,#cf,#92,#8a
	db #cd,#e1,#b4,#18,#18,#cf,#92,#92
	db #8a,#cd,#e3,#b4,#18,#cf,#92,#8a
	db #cd,#e1,#b4,#18,#18,#cf,#92,#92
	db #8a,#cd,#e3,#b4,#18,#e3,#cf,#92
	db #8a,#cd,#e3,#b4,#18,#e1,#cf,#92
	db #92,#8a,#cd,#b4,#18,#18,#cf,#92
	db #8a,#cd,#b4,#18,#18,#18,#df,#00
	db #1f,#11,#e0,#92,#92,#92,#92,#80
.lbc94
	db #de,#00,#1f,#13,#8a,#90,#0c,#e3
	db #b5,#13,#e1,#cf,#92,#8a,#ce,#e5
	db #b5,#13,#e1,#cf,#92,#92,#8a,#ce
	db #e3,#b5,#13,#e1,#cf,#92,#8a,#ce
	db #e5,#b5,#13,#e1,#cf,#92,#92,#8a
	db #cd,#e3,#b5,#1f,#e1,#cf,#92,#8a
	db #cd,#e5,#b5,#1f,#e1,#cf,#92,#92
	db #8a,#cd,#e3,#b5,#20,#e1,#cf,#92
	db #8a,#cd,#b5,#20,#df,#00,#1f,#11
	db #e0,#92,#92,#92,#92,#92,#92,#92
.lbce8 equ $ + 4
	db #92,#90,#00,#80,#dd,#00,#1f,#13
	db #8a,#90,#0c,#e3,#b5,#18,#cf,#e1
	db #92,#8a,#cd,#b5,#18,#18,#18,#cf
	db #92,#8a,#cd,#b5,#18,#18,#18,#cf
	db #92,#8a,#cd,#b5,#18,#8e,#18,#19
	db #cf,#92,#8a,#cd,#e3,#b5,#18,#cf
	db #e1,#92,#8a,#cd,#b5,#18,#18,#18
	db #cf,#92,#8a,#cd,#b5,#18,#18,#18
	db #cf,#92,#8a,#cd,#b5,#18,#8e,#18
	db #19,#df,#00,#1f,#11,#e0,#92,#92
.lbd37 equ $ + 3
	db #90,#00,#80,#dd,#00,#1f,#13,#8a
	db #90,#0c,#e3,#b5,#1f,#cf,#e1,#92
	db #8a,#cd,#b5,#1f,#1f,#1f,#cf,#92
	db #8a,#cd,#b5,#1f,#1f,#1f,#cf,#92
	db #8a,#cd,#b5,#1f,#8e,#1f,#1f,#cf
	db #92,#8a,#cd,#e3,#b5,#20,#cf,#e1
	db #92,#8a,#cd,#b5,#20,#20,#20,#cf
	db #92,#8a,#cd,#b5,#20,#22,#22,#cf
	db #92,#8a,#cd,#b5,#22,#8e,#22,#22
	db #df,#00,#1f,#11,#e0,#92,#92,#90
.lbd8a equ $ + 6
.lbd88 equ $ + 4
.lbd86 equ $ + 2
	db #00,#80,#8c,#bd,#b8,#bd,#dc,#bd
	db #df,#00,#1f,#13,#8a,#83,#01,#11
	db #98,#e1,#0c,#0c,#0c,#0c,#0c,#0c
	db #0c,#0c,#0c,#0c,#df,#00,#1f,#11
	db #e0,#92,#92,#92,#92,#92,#92,#92
	db #92,#92,#92,#92,#92,#df,#00,#1f
	db #13,#f9,#92,#91,#dc,#13,#12,#12
	db #8a,#83,#01,#31,#88,#08,#01,#02
	db #32,#90,#f4,#e1,#3a,#3a,#38,#38
	db #37,#37,#35,#e0,#35,#35,#e1,#37
	db #8f,#3a,#83,#10,#71,#f9,#3c,#91
	db #de,#00,#1f,#13,#8a,#90,#0c,#e3
	db #b5,#18,#cf,#e1,#92,#8a,#ce,#b5
	db #18,#19,#18,#cf,#92,#8a,#ce,#b5
	db #18,#e3,#18,#db,#13,#12,#12,#88
	db #08,#01,#02,#32,#84,#90,#00,#e1
.lbe0b equ $ + 7
	db #2c,#83,#10,#71,#f9,#2b,#91,#11
.lbe0f equ $ + 3
.lbe0d equ $ + 1
	db #be,#34,#be,#73,#be,#da,#14,#00
	db #22,#8a,#83,#01,#31,#88,#04,#01
	db #01,#00,#90,#f4,#eb,#3c,#e3,#43
	db #eb,#41,#e3,#3f,#de,#00,#1f,#14
	db #e5,#3e,#3c,#e3,#3a,#ef,#3c,#91
	db #dd,#00,#16,#12,#8a,#83,#01,#11
	db #88,#00,#01,#01,#00,#9b,#00,#98
	db #e0,#30,#3c,#35,#37,#30,#3c,#3a
	db #35,#30,#3c,#35,#37,#30,#3c,#3a
	db #35,#30,#3c,#35,#37,#30,#3c,#3a
	db #35,#30,#3c,#35,#37,#30,#3c,#3a
	db #35,#de,#00,#1f,#13,#b4,#99,#e5
	db #1b,#1b,#e3,#1b,#ef,#18,#91,#df
	db #00,#1f,#13,#8a,#83,#01,#11,#e1
	db #0c,#0c,#92,#8a,#0f,#0c,#0c,#92
	db #8a,#0f,#0c,#0c,#92,#8a,#0f,#0c
	db #0c,#92,#92,#e5,#92,#e3,#92,#df
	db #00,#1f,#13,#8a,#e1,#0f,#e3,#0f
	db #ef,#0c,#91,#a8,#be,#00,#00,#9f
.lbea7 equ $ + 3
	db #be,#97,#80,#94,#ff,#8f,#8f,#8f
	db #8f,#8f,#8f,#8f,#8f,#80,#c6,#be
	db #e4,#be,#f6,#be,#03,#bf,#16,#bf
	db #2d,#bf,#3f,#bf,#50,#bf,#6d,#bf
	db #7d,#bf,#df,#00,#11,#11,#83,#01
	db #11,#8c,#20,#00,#00,#00,#eb,#b0
	db #82,#1f,#df,#00,#1f,#18,#8c,#14
	db #01,#00,#08,#f7,#82,#24,#8e,#95
	db #dd,#12,#1f,#23,#83,#01,#11,#8c
	db #30,#01,#00,#08,#e5,#b0,#0c,#fd
	db #0c,#95,#df,#00,#00,#11,#8a,#83
	db #00,#00,#e5,#b0,#82,#05,#95,#de
	db #00,#1f,#13,#83,#01,#11,#8c,#10
	db #01,#00,#08,#e5,#b0,#18,#fd,#82
	db #2b,#95,#df,#00,#14,#11,#83,#02
	db #11,#8c,#3f,#00,#00,#00,#e3,#b0
	db #82,#1a,#82,#1a,#82,#1a,#82,#1a
	db #95,#de,#00,#1f,#12,#83,#01,#11
	db #8c,#20,#01,#00,#08,#e5,#b0,#0c
	db #ef,#1a,#95,#df,#00,#1f,#11,#83
	db #00,#00,#8c,#2a,#00,#00,#00,#e6
	db #b0,#1a,#16,#95,#da,#00,#00,#00
	db #8a,#83,#01,#11,#e1,#3c,#43,#47
	db #48,#c7,#3c,#43,#47,#48,#c5,#3c
	db #43,#47,#48,#c4,#3c,#43,#47,#48
	db #95,#dd,#00,#1f,#13,#8a,#83,#01
	db #11,#88,#00,#01,#01,#00,#ef,#4b
	db #95,#dd,#00,#1f,#12,#8a,#83,#01
	db #11,#e7,#b4,#24,#25,#24,#8e,#95
	db #ff,#ff,#ff,#ff,#67,#77,#9e,#ef
	db #67,#77,#df,#ff,#0f,#0f,#00,#f7
	db #00,#f7,#49,#1d,#d2,#00,#53,#b9
	db #4c,#be,#4c,#be,#00,#02,#b0,#ab
	db #00,#f7,#00,#f7,#49,#1d,#dc,#00
	db #4c,#be,#00,#0a,#b0,#ab,#fc,#c8
	db #0a,#c9,#c8,#c6,#5c,#c7,#00,#0a
	db #60,#ca,#80,#00,#f2,#c8,#ce,#c8
	db #45,#00,#48,#be,#00,#0a,#b0,#a9
	db #56,#c5,#f1,#d9,#00,#a7,#ff,#95
	db #30,#ce,#00,#00,#ff,#95,#13,#00
	db #8d,#03,#d2,#00,#53,#b9,#f9,#0b
	db #f9,#0b,#ae,#16,#c9,#16,#63,#25
	db #00,#02,#c9,#24,#40,#00,#a2,#b9
	db #89,#7f,#98,#00
;
.game_name
	db "Sharkey's Moll",0
.game_year
	db "1991",0
.game_publisher
	db "Zeppelin Games Ltd.",0
.music_author
	db "Sound Images",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
